program deftypu;

type
	A = integer;
	B = A;
	C = 1 .. 10;
	D = (a, b, c);
{	E = record
		a,b: integer;
		c: real;
	end;
	F = record
		case a:integer of
			1: ( b:integer );
			2: ( c:real);
	end;}
var
	a,c,d : A;
	b : B;
	e : integer;

begin
	a:=1;
	b:=2;
	writeln(a);
	writeln(b);
end.
